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Version: *v04-000' 
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Functional description: 
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This module displays entries made by the padriver. 
Modified by: 


v03-010 EAD0178 Elliott A. Drayton 24-May-1984 
Added code to handle zero Length HSC datagram message. 


v03-009 EAD0173 Elliott A. Drayton 9-May-1984 
Added code to prevent HSC “datagram format overflow. 


v03-008 EAD0122 Elliott A. Drayton 24-Mar-1984 
Changed PA error title for subtype 7. 


v03-007 EAD0121 Elliott A. Drayton My -Mar-1984 
Add support for new PA errors cubtypes 2,7, and 8 


v03-006 SARO199 Sharon A. Reynolds, 20-F eb-1984 
Added an SYE update tha 
- Fixed an incorrect aaa number being reported. 


v03-005 SARC SS Sharon A. Reynolds, 13-0ct-1983 
= Added an SYE oesare,* that implements new spec 
changes for P 
- Fixed a bug in the padriver_ attention_error_code 
routine, 
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0058 C FUI 
ae VO3-004 SARO088 Sharon A. Reynolds, , 20-Jun-1983 | . 
C Changed the carriage control in the ‘format’ statements 
1 : for use with ERF. 
O98 C v03-003 SARO057 Sharon A. Reynolds, 15-Jun-1983 | 
¢ ; Removed brief/cryptic support. | 
O86 C v03-002 BP0002 Brian Porter, 20-AUG-1982 
bees ¢ Added ci750. 
34 C v03-001 BP0001 Brian Porter, 22-JUL-1982 
0 c Corrected ‘ppd$b_flags' conversion error. 
0071 cre 
Borg c-- 
007 
Bore Subroutine PADRIVER_ATTENTION780 (Lun) | 
0076 include ‘src$:msghdr.for /nolist' 
3 5 include ‘src$:deverr.for /nolist' 
moe ON , 
te n 
0239 . : 
0240 integer*4 padriver_error_type_code 
0241 integer*4 penfgr | 
0 eg integer*4 pmcsr 
024 integert4 psr | 
0244 integer*4 pfar 
0245 integer*4 pesr 
0246 integer*4 ppr 
0247 integer*4 pmadr 
0248 integert4 pmdatr 
0249 integer*4 correct_control_store_value 
osee integer*4 compress4 
0958 lLogical*1 diagnostic_mode 
6 54 equivalence (emb$\_dv_regsav(0) ,padriver_error_type_code) 
0255 equivalence (emb$l_dv_regsav(1) ,pcnfo~ 
28 equivalence pombe) -cvregsay tg) pacer) 
5 equivalence Cemb$l_dv_regsav(3).psr 
58 equivalence Cemb$l_dv_regsav(4) .pfar) | 
59 equivalence (emb$l_dv_regsav(5) ,pesr) 
60 equivalence combat dv regsav(G) per) 
61 equivalence (emb$l_dv_regsav(7) ,pmadr) | 
o¢ equivalence (emb$l_dv_regsav(8),pmdatr) 
a7 equivalence (emb$l_dv_regsav(9) ,correct_control_store_value) 
65 
; call fretof (lun) 
08 call header (lun) 
76 call logger (lun, DEVICE ATTENTION’) 
$3 call padriver_attention_error_code (lun,padriver_error_type_code) 
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call padriver_initialization (lun,padriver_error_type_code) 
if (LibSextzv(8,7,padriver_error_type_code) .eq. 0) goto 75 


set not diagnostic mode for now 


diagnostic_mode = .false. 


OOCooooooooo 


call ci780_rega (Lun, pcnfgr) 
else 


] 
if (.not. diagnostic_mode) then 
0588 
0 34 call Linchk (lun,2) 
§ 91 write(lun,5) pcnfgr 
0 4 5 format(/' ',t8,'"CNFGR’,t24,28.8) 
8 rt , endif 
0 4 call ci.pmcsr (lun,pmcsr,diagnostic_mode) 
o 44 call ci_psr (lun,psr,diagnostic_mcde) 
0299 call Linchk (lun,1) 
0300 
0301 write(tun,10) pfar 
B306 10 format(® °,t8,"PFAR',t24,28.8) 
Bane call ci_pesr (lun,pesr,psr,diagnostic_mode) 
Bane call ci_ppr (lun, ppr.psr,diagnostic_mode) 
$308 call ci_control_store_mismatch (Lun,pmadr,pmdatr, 
4 3 1 correct_control_store_value,padriver_error_type_code,diagnostic_mode) 
\ call Linchk (lun,1) 
ig write(lun,15) 
13 15 format(" *,:) 
18 call ucb$b_ertcnt (lun, LibSextzv(16,8,padriver_error_type_code) ) | 
‘ call ucb$b_ertmax (lun, libSextzv(24,8,padriver_error_type_code) ) | 


call ucb$l_char (lun,emb$l_dv_char) 
call ucb$w_sts (lun,emb$w_dv_sts) 
call ucb$wlerrcnt (lun,emb$w_dv_errcnt) 
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75 return 
End 
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PROGRAM SECTIONS 


| 
Name Bytes Attributes 
0 SCODE 434 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
‘Be SLOCAL é PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
1 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 1308 
ENTRY POINTS 
Address Type Name 
0-00000000 PADRIVER_ATTENTION780 
VARIABLES 
Address Type Name Address Type Name 
-00000004 I*4 COMPRESS4 -00000076 I*4 CORRECT _CONTROL_STORE_VALUE 
-00000000 L*l DIAGNOSTIC_MODE -0000001C L*1 EMBSB_DV_CLASS ~ 
-00000010 L*1 $8 RTCNT -00000011 L*1 EMBSB_DV_ERTMAX 
-QO00003E L*1 _DV_NAMLNG -0000003A L*1 EMBSB_DV_ 
-0000001D L*l EMBSB_DV_TYPE -00000036 I*4 EMBSL_DV_C 
mises ie $03 I*4 EMBSL_DV_10SB1 -00000016 I*4 EMBSL_DV_I0SB2 
6 I*4 EMBSL_DV_MEDIA mitted I*4 EMBSL_DV_NUMR 
-0000002E I*4 EMBSL_DV_OPCNT -00000032 I*4 EMBSL_DV_OWNUIC 
1E I*4 EMBSL_DV_ROPID -00000000 I*4 EMBSL_HD_ 
3F CHAR EMBST_DV_ mts 4 I*2 EMBSY_DV_BCNT 
-00000022 I*2 EMBSW_DV_BOFF -0000002C I*2 EMB$W_DV_ERRCNT 
-0000005C I*2 EMBSW_DV_ -QO00001A I*2 EMBSW-DV_STS 
=0000002A I*2 EMBSW_DV_UNIT -00000004 I*2 EMBSW_HD_ENTRY 
I*2 EMBSW-HD_ERRSEQ 944 re L*1 LUN 
52 184 PADRIVER™ _ERROR_TYPE_CODE -000000 § I*4 PEN GR 
I1*4 PESR ~RORRO RE I*4 PFAR 
missisiaie 3 I*4 PMADR -0000005A I*4 PMCSR 
1*4 PMDATR -0000006A I*4 PPR 
-O000005E I*4 PSR 
ARRAYS 
Address Type Name Bytes Dimensions 


messi 4 L*l EMB 512 (0:511) 
-000000 I*4 EMBSL_DV_REGSAV 420 (0:104) 
§20900032 I*4 EMBS$OQ_HD_TI 8 (2) 


No 
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LABELS 
Address Label Address Label Address Label Address Label 
1-00000029 5° 1-0000003C 10° 1-0000004D 15° 0-00000181 75 


FUNCTIONS AND SUBROUTINES REFERENCED 


$8388333838 


Type Name Type Name Type Name ‘ 
£1780 REGA “1 pa emilee eatin CI_PESR 
C1_PMCSR C1_PPR CI_PSR 
FROTOF HEADER I*4 LIBSEXTZV 
LINCHK LOGGER PADRIVER_ATTENTION_ERROR_CODE 
PADRIVER_INITIALIZATION UCBSB_ERTCNT UCB$B_ERTMAX 
UCBSL_CHAR UCBSW_ERRCNT UCBSW_STS 


a ee ee eS 


00" 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00; 
00 
00 
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Subroutine PADRIVER_ATTENTION750 (Lun) 


include ‘src$:msghdr.for /nolist' 
include ‘src$:deverr.for /nolist’ 


byte lun 

integer*4 padriver_error_type_code 
ntegert4 pcnfgr 

integers4 pmcsr 

integer*4 psr 

integert4 pfar 

integert4 pesr 

integers4 ppr 

integer*4 pmadr 

integer*4 pmdatr 

integer*4 correct_control_store_value 
integere4 compress4 

logical*1 diagnostic_mode 

equivalence (emb$l_dv_regsav(0) ,.padriver_error_type_code) 

equivalence (emb$l_dv_regsav(1),pcnfgr) 

equivalence pombe -Gvaregsev ig) pacer) 

equivalence (emb$l_dv_regsav(35),psr) 

equivalence Cemb$l_dv_regsav(4) ,pfar) 

equivalence (emb$l_dv_regsav(5) ,pesr) 

equivalence tombs! _dv_regsav (6) per) 

equivalence (emb$l_dv_regsav(7) ,pmadr) 

equivalence (emb$l_dv_regsav(8) ,pmdatr) 

equivalence (emb$l_dv_regsav(9) ,correct_control_store_value) 


call frcetof (lun) 

call header (lun) 

call logger (lun,"DEVICE ATTENTION’) 

call padriver_attention_error_code (lun,padriver_error_type_code) 
call padriver_initialization (lun,padriver_error_type_code) 

if (LibSextzv(8,7,padriver_error_type_code) .eq. 0) goto 20 


set not diagnostic_mode for now 


diagnostic_mode = .false. 
If (LIBSEXTZV(14,1,pcnfgr) .EQ. 1) then 
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ptognost ic mode = true. 
Endif 


if (.mot. diagnostic_mode) then 
call ci750_cnfgr (lun, pcnfgr) 
else 


call Linchk (lun,3) 


write(lun,5) eofar 
format(/' *,tB, 'CNFGR' 
1 140, DIAGNOSTIC MODE 
endif 


:t24.28.8./, 
) 


call ci.pmcsr (Lun,pmcsr,diagnostic_mode) 
call ci.psr (lun,psr,diagnostic_mode) 
call Linchk (lun,1) 


write(lun,10) pfar 
format(' ',t8,*PFAR',t24,28.8) 


call ci_pesr (lun,pesr,psr,diagnostic_mode) 
call ci_ppr (lun,ppr,psr,diagnostic_mode) 
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call ci_control_store_mismatch (lun,pmadr,pmdatr, 
1 correct_control_store_value,padriver_error_type_code,diagnostic_mode) 


call Linchk (lun,1) 


write(lun,15) 
format(' *,:) 


call ucb$b_ertcnt (lun, LibSextzv(16,8,padriver_error_type_code)) 


call ucb$b_ertmax (lun, libSextzv(24,8,padriver_error_type_code) ) 


call ucb$l_cnar (lun,emb$l_dv_char) 
call ucb$w_sts (lun,emb$w_dv_sts) 
call ucb$w_errcnt (lun,emb$w_dv_errcnt) 


return 
End 


PADRIVER_ATTENTION750 


PROGRAM SECTIONS 


Name Bytes 
° CODE 454 
SPDATA 10 
¢ SLOCAL %8 
EMB 1 

Total Space Allocated 1368 


ENTRY POINTS 
Address Type Name 
0-00000000 PADRIVER_ATTENTION750 


VARIABLES 
Name 
COMPRESS4 


“HD ~ERRSEQ 

ADRIVERERROR_TYPE_CODE 
PMADR 
PMDATR 


ARRAYS 
Address Type Name 


-00000000 L*!l EMB 
$-Dog900%2 I*4 EMBSL_D 
-00000006 I*4 EMBS$Q_H 


Address Type 
-00000076 I*4 


-00000036 14 
“00000016 14 


-00 4 I* 
AP-000000048 L*1 


-000000 1*4 
-00000062 [4 
-Q000005A 14 
-Q000006A 14 


EXE RD NOWRT LONG 
OEXE RD NOWRT LONG 

EXE 

EXE 


CORRECT wf 17 ellen ittaata 


EMBSB_DV_CLASS 
$8 


EMBSW_DV_STS 
EMB$W_HD_ENTRY 


LUN 
PCNFGR 
PFAR 
PMCSR 
PPR 


Bytes Dimensions 
51 (0:511) 


420 (0:10 
8 
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LABELS 
Address Label Address Label Address Label Address Label 
1-0000002D 5° 1-00000054 10° 1-00000065 15° 0-000001C5 20 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name Type Name 
£1750 CNFGR CI_CONTROL_STORE_MISMATCH CI_PESR 
C1_PMCSR C1_PPR 
FRCTOF HEADER I*4 LIBSEXTZV 
LINC LOGGER PADRIVER Nata ERROR_CODE 
BADRIVER INITIALIZATION UCBSB 


NT UCBS$B_ ERTRA 
NT 


ERTC 
UCBS$L_CHAR UCBSW_ERRC UCBSW"STS 


00( 

( 
00( 
00( 
00( 
00: 
001 
90; 

1 
001 
001 
001 
001 
00 
00) 
00; 
00, 
00; 
00; 
00; 
00; 
00; 
00; 
00; 
60! 
001 
00: 
00? 
003 
00: 
00: 
00: 
00: 
i" 
i 
00¢ 
004 


NEN 
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if seo 19 90310:81 
Subroutine PADRIVER_ATTENTION_ERROR_CODE (lun,padriver_error_type_code) 


include (eres: :msghdr.for /nolist' 
include ‘src$:deverr.for /nolist’ 


byte lun 


integer*4 
integer*4 
integers4 error_subtype 

integer*4 compréss4, Length 


Character*(80) Message 
Character*(*) a°fn sree, Gram_free, Hi, Lo, hatin sep 
ns_ fai a6: Q_fFem_fail, 


padriver_ errer _type_code 
error type 


msg! “Tg Migs. “Msg4, Msg 
meaty Rear Rsaty Msg. ms, 


o 
zQaz4 
70-54 
6 


( 
o. = "MESSAGE FREE ‘, 
ee = , DATAGRAM FREE", 


ED 
oO - csas 
7e@7 


get. e 


2 
ied: 
EAS 
a2 


IORITY COMMAND ' 
"QUEUE INSERT FAILURE, 
PoNse REMOVE FAILURE’, 


Fict 
ILED TO LOCATE PORT MICRO-CODE IMA 
(AICROSCODE VERIFICATION ERROR 
S FROM "UNI INIT Prac iseD" TO Sipe 


Ooo v5 + 
etait {wi “un 


POW ' 
"UNEXPECTED INTERRUPT 
*SCSSYSTEMID MUST BE "Ser TO A NON-ZERO VALUE.", 
Q = *CI PORT MICROCODE REV NOT * 
msg] 2 ; SUPPORTED m 
= "CURREN epeul SUPPORTED' 
Het = *11/750 "epg MICROCODE NOT ADEQUATE FOR CI") 


Error_subtype = LibSextzv(0,8,padriver_error_type_code) 
Error_type = LibSextzv( 7 ,padriver_ error_type_code) 


Call Linchk (lun,2) 
Goto ( 100, 200 ) error ~ 
If (error_type .eq. 0) t 
If aarrer oSuetyee -eq. voy then 


mocsoge = msg 
Lengty 5 = len (msgl) 


BBBSBSBSSBSBSBBWDOO Ve 


cietenteesmidenediiaaeamanninie mate — 
ese seeesese x 
uw 


my 7 a getres eq. 1) then 
Message = ms 


Length = lene (msg2) 
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Goto 990 

Else if (error_subtype .eq. 2) then 
essage = msg? 
Goto 990 

Endif 


Else 
Write(lun,995) emb$t Gy _ngwe('l senbSb_dy_neaing) .esbSy dv_unit, 
ee ‘PADRIVER’ ERROR TYPE #',error_type,'., ERROR SUB-TYPE #', 
1 error subtype “-" 
995 Formatt/' *.*Cf{ SUB-SYSTEM, _'.a 
1 i<compress4 (LibSextzv(0,{67emb$w_dv_unit))>,": =" 
1 a,i<compress4 (error_type)>,a,i<compress4 (error_subtype)>,a) 


0 
0 
0 
0 
0 
0 
0 
0 
8 Endif 
03 Return 
Os 100 Goto ( 5, 10, 15, 20, 25, 30, 35, 40 ) error_subtype 
osee If corror subtyee -eq. 0) then 
0239 Message = msg 
0240 Length = Len (msg3) 
0241 Goto 990 
0 ¢g Endif 
024 Return 
0244 
0245 5 Message = msg4 
0246 Length = len (msg4) 
te4 Goto 990 
$525 10 Message = msg5 
0250 Length = Len (msg5) 
bse) Goto 990 
0588 15 Message = msg6 
OS 38 Length = Len (msg6) 
0 2? Goto 990 
$589 20 Message = msg7 
0258 Length = Len (msg7) 
uc? Goto 990 
0260 

61 25 Message = msg8 

o¢ Length = len (msg8) 

Goto 990 


Message = msgi0 // msgil 
Goto 950 . ° 


35 Message = msg13 
$ Goto 990 


M ~ 10 // 12 
SSiS*Mho" meate // oo 


SOOOOOOCOCSOOOoOooO: 
PAA 
ANASSSISAL 
= w 
oO So 


a4 200 Goto ( 210,220,230,240,250,260 ) error_subtype 
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PADRIVER_ATTENTION_ERROR_CODE ipege gen 138s 99: 1):84 Feat 2hcaPaeiver.For, 


-Sep- * es 


a (error subtype .eq. 0) then 


Uengthes = msg free // q_ ren fai 
Length = len Tmsg_free) + lén (* : ote ren, fail) 
eed sre 9 5 write 


Return 


219 lengths = gram_free // g_rem_fail 
Length = len (Gram_free)~+ “tan (q_rem_fail) 


220 Message = resp // q_rem_fail 
Length = Len (resp)"+ Lén (q_rem_fail) 
Goto 990 


230 Message = hi // prfe cmd // q_ins_fail 
Length = Len (hi) + Ten (prio ~cmd) + Len (q_ins_fail) 
Goto 990 


240 Message = lo // prio.cmd // q_ins_fail 
Length = Len (lo) + Ten (prio_cmd) + = (q_ins_fail) 
Goto 990 


sssssssssssssssssssssss 
3 WOCOO0OOOOMWO COCOONS 


250 Lengths = msg_free // q_ins_fail 
Length len Tmsg_free) + Lén (q_ins_fail) 


w 
Grace 


260 Roseoge = gram_free // q -ins fail 
Length = Len (gram_ treet"s Lén (q_ins_fail) 


990 write(lun,991) emb$t_dv_name(1:emb$b_dv_naming), 
1 emb$w _dv unit, MesSage 


991 format(/" °,'CI SUB-SYSTEM, 
1 i<compressé (LibSextzv(0, 18. sabty.. dv_unit))>,': = ‘a, 
1 :i<compress4 (error _subtype)>,: sa)” 


Ie 


WAWWAAUSs 
Swn-Oo0On 


OOoooocooooooooo0o 
Www Ww 
tt BOO 


WA 


Return 
End 


PROGRAM SECTIONS 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


ARRAYS 
Address Type 


-00000000 

3-00000039 I*4 

-00000006 
LABELS 


0-00000131 3. 


Address Label 


1A5 
00000218 $30 
1-0000003F 995° 


PADRIVER_ATTENTION_ERROR_CODE 


Total Space Allocated 


PADRIVER_ATTENTION_ERROR_CODE 


Name 
EMBSB_DV “EL Ass 


EMBSW_HD ENTRY 
ERROR, SUBTYPE 


I LEN 
2-00000000 CHAR MESSAGE 


EMB 
EMBSL_DV_REGSAV 
EMBS$Q"HD_TIME 


Address 


Ary 
- 0000236 


Address Type 


9:1): 88 VAX=11 FORTRAN 
2:10:51 DISKSVMSMASTER 


RD NOWRT LONG 
RD NOWRT LONG 
RD WRT LONG 
RD WRT LONG 


EMBSB_DV_ERTCNT 


LUN 
PADRIVER_ERROR_TYPE_CODE 


Label 


ie fp Sa 


pat 


CIPADRIVER. FOR: ie 


16 
seen en we NEHSEISE ARSTUBt ANGDAIRUTEELLTBtarsontvenontt™”_ 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESS4 I*4 LIBSEXTZV LINCHK 


F 16 
Mergeen Fhe POi1bi8t Was ekdnGARSTON PERE chcopapeiver.ronsi™” '° 


Subroutine PADRIVER_INITIALIZATION (tun,padriver_error_type_code) 


ie) byte lun 

0008 integer*4 adriver_error_type_code 

0009 integerss initial ization=retry count 

0010 integer*4 initialization_maxtry_count 

oP integers4 compress4 

$018 logical*1 port_reinitialization 

0014 

0015 

B08 port_reinitialization = .false. 

0018 if (LibSextzv(15,1,padriver_error_type_code) .eq. 1) 

0019 1 port_reinitialization = .frue. 

0031 initialization_retry_count = Lib$Sextzv(16,8,padriver_error_type_code) 
Bo5§ initialization_maxtry_count = LibSextzv(2é, -padriver_error_type_code) 
OoSe if (port_reinitialization) then 

Bose call Linchk (lun,2) 

0099 if Cinitialization_retry_count .gt. 0) then 

0030 write(lun,10) "PORT WILL BE RESTARTED, ',— 

0031 1 initialization ror count,'. OF " initialization_maxtry_count, 
ot) 1°. RETRIES REMAINING® 

003 10 format(/" ',t8,a,i<compress4 (initialization_retry_count)>,a, 
0034 1 i<compress4 (initialization_maxtry_count)>,a) 

S$ else 

0037 write(lun,15) 'O. RETRIES REMAINING, PORT WILL BE DISABLED’ 

0038 15 format(/' *,t8,a) 

0039 endif 

0040 endif 

0041 

98 return 

004 

0044 end 


PADRIVER_INITIALIZATION 


PROGRAM SECTIONS 


Name Bytes 
0 SCODE 2 
1 SPDATA #28 
2 SLOCAL 120 

Total Space Allocated 491 


ENTRY POINTS 
Address Type 
0-00000000 


Name 
PADRIVER_INITIALIZATION 


VARIABLES 
Address Type Name 
2-00000008 I*4 INITIALIZATION_MAXTRY_COUNT 
AP-00000004a L.*1 
2-00000000 L*1 PORT_REINITIALIZATION 
LABELS 
Address 
1-00000073 


Label 
10° 


Address 
1-00000089 


Label 
15° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
1*4 COMPRESS4 


Type Name 
I*4 LIBSEXTZV 


4 90: 1h:88 VAX=-11 FORT 
-Sep-1984 14:10:51 DISKSVMSMAS 
Attributes 
PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Address Type Name 
2-00000004 I*4 INITIALIZATION_RETRY_COUNT 
AP-00000008@ I*4 PADRIVER_ERROR_TYPE_TODE 


Type Name 


LINCHK 


Ys -4-56 
: CERF .SRCJPADRIVER.FOR; 


‘se 


WN "SO OOnC NEW —OOONOUFW uO 


WAWWAWAI AIP POPONIPUNININUNIDS 2 2 SS Se 


NOP UI =O Oe ae 


$3 
: 
00 
3 
% 
3 
3 
$3 
3 
se 
Se 
38 


0034 
$084 
a056 


25 


30 


H 16 
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Subroutine CI_PESR (lun,pesr,psr,diagnostic_mode) 


byte lun 

integert4 pesr 

integer*4 psr 

integer*4 compress4 
Integer*4 pesr_value 
Logical*1 diagnostic_mode 


call Linchk (lun,1) 


write(lun,25) pesr 
format(’ *,t8,"PESR',t24,28.8) 


if (.mot. diagnostic_mode) then 

if (LibSextzv(4,1,psr) .eq. 1) then 
Pesr_value = LIBSEXTZV(0,20,pesr) 
If (pesr_value .NE. 0) then 

Call LINTHK (Lun,1) 

Endif 

IF (pesr_value .EQ. 1) then 


write(lun, 30) "ILLEGAL SYSTEM VIRT ADDR FORMAT’ 
format(' *,t40,a,:i<compress4 (pesr_value)>,:a) 


else if (pesr_value .eq. 2) then 
write(lun,30) "NON-EXISTENT SYSTEM VIRTUAL ADDR’ 


else if (pesr v ae 


value . 
write(lun,30) ‘INVALID 
else if (ogee value -eq. 4) then 
write(lun,30) ‘INVALID BUFFER ‘PTE’ 
else if Cpgsr value 99 5) then 
write(lun,30) "NON-EXISTENT SYSTEM GBL VIRT ADDR’ 
else if Cog sr -yatue 98 6) then 
write(lun,30) ‘NON-EXISTENT BUFFER GBL VIRT ADDR’ 
else if (pesr_value .eq. 7) then 
write (lun,303 "INVALID SYSTEM GLOBAL ‘PTE’ 
else if (ogsr value eq. 8) then 
write(lun,30)° "INVALID BUFFER GLOBAL ‘'PTE*’ 


VAX-11 FORTRAN 
DISKSVMSMASTER: 


Poe 
ERF.SR 


Page 
CIPADRIVER.FOR;1 


18 


16 
16-Sep-1984 00:11:24 
' Sep-198e 14:10:51 


then 


ate if (pesr_ rut eq 
EM GBL ‘PTE’ MAPPING’ 


te(iun, $0) 7" INVALID $Y 
R SL "PTE" MAPPING’ 


the 


) 

E 

else if (pesr_value .e ) 
36) ‘ Ni TERLOCK K RETRY FAILURE’ 

) 

E 


write(lun QUEUE | 


else if {peer value .eq 
write(lun,30)~ VTLLEGAL Que 


U 
else if Cogsr value eq. 13) 
write(lun,30) ‘ILLEGAL Gpgg! 


else if (Cogs r_value . ae then 

+ ate 0)“ *REGISTE PROTOROS VIOLATION’ 

else 

write(lun,30) ‘ERROR STATUS CODE #',pesr_vaiue,'.’ 
endif 

endif 

If (LIBSEXTZV(7,1,psr) .EQ. 1) then 

Pesr_value = LIBSEXTZV(16,5.,pesr) 


If (pesr_value . Nes 0) then 
Catt LINCHE (lun 


9) 
ST 
else if ( ue . 10 
write(lun- 30) “vt eLi 5 BUFFER. 
11 
RL 
12 


the 
OFFSET ALIGNMENT’ 
the 
F 


ORMAT* 


saese 


sep 


If (pesr_value .£Q. 1) then 

write(lun,30) "RECEIVE BUFFERS EMPTY, FLAG SET’ 
else if (pesr_value .eq. 2) then 

write(lun,30) ‘INTERNAL PACKET IN ILLEGAL STATE’ 
else if (pesr_value .eq. 3) then 

write(lun,30) ‘PORT STATUS, ENABLED AND DISABLED‘ 
else if (pesr_value .eq. 4) then 

write(lun,30) ‘COMMAND, COMPLETE AND INCOMPLETE’ 
else if (pesr_value .eq. 5) then 

write(lun,30) "INTERNAL QUEUE RETRY EXPIRED’ 
else if (pesr_value .eq. 6) then 

write(lun,30) ‘INTERNAL TRANSMIT, NO PATH’ 

else if (pesr_value .eq. 7) then 


FansseBeeePaRee es eeoeES® 
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SOoOQooooooooooooo 
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pele jololelolelololelololelolelelolelolelolelololololo) 


“a — 2s 9 2s ) as 9 2s ) Ls ss 9 1 


ENTRY POINTS 


I 
AP-0000000C@ 1*4 


iblfoerg 
eo- 
Sep-19 


~~ 
-o 
Ss 
aed 
o- 
wn 
== 


write(lun,30) "RECEIVE PACKET, ACK AND NACK‘ 
else if (pesr_value .eq. 8) then 
write(lun,30) "PATH FAILURE, BOTH AVAILABLE’ 
else if (pesr_value .eq. 9) then 
write(lun,30) ‘UNKNOWN MAINTENANCE OPCODE' 
else if (pesr_value .eq. 10) then 
write(lun,30) ‘BOTH PATHS BEING FORCED’ 

else if (pesr_value .eq. 11) then 
write(lun,30) "ILLEGAL CSB STATE’ 

else 


write (lun.50) "ERROR STATUS CODE #',pesr_value,'.' 


Add:ess Type Name 


0-00000000 CI_PESR 
VARIABLES 
Address Type Name Address Type Name 
AP-000000108 L*1 DIAGNOSTIC_MODE AP-000000048 L*1 
AP-00000008a I*4 PESR 2-00000000 I*4 PESR VALUE 


PSR 


VAX-11 FORTRAN 
DISKSVMSMASTER: 


LONG 


5 endi 
endif 
7 endif 
39 return 
40 
41 End 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 1357 + PIC CON REL LCL _ EXE RD NOWRT LONG 
1 SPDATA 778 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 304 PIC CON REL LCL NOSHR NOEXE RD WRT 
Total Space Allocated 2439 


Page 
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a estat (td 
LABELS 
Address Label Address Label 
1-000002E9 25° 1=000002FA 30° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESS4G I*4 LIBSEXTZV LINCHK 


4 
1 


VAX=11 FORTRAN 
DISKSVMSMASTER: 
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Subroutine CI_PMCSR (Lun,pmcsr,diagnostic_mode) 


byte lun 
integer*4 pmcsr 
lLogical* diagnostic_mode 


character*29 ipmesr ( 
d §)>™ 


ata vipmesr ( 
data vipmesr (1) 
data uipacer te: 
data vipmesr (3) 


data vipmesr(<) 
character*30 v2 
ata v pacer ts: 
data vepmesr (7) 
data v pacer te: 
data vepmesr (9) 
data vepmesr (10) 
data vepmesr (11) 
data v pacers t6: 
data vepmesr (15) 
data vepmesr (14) 
data vépmesr (15) 


call Linchk (lun,1) 


write(lun,5) c 


sr 
format(* *.t8>"PRCSR’ ,t24,28.8) 
if (.not. diagnostic_mode) then 


-—O~ 


ARITY E 
IT BUFFER PARI 


STARTIN 


G ADDRESS*'/ 


STATE®'/ 


call output (lun,pmcsr,vipmcesr,0,0,4,'0") 


call output (lun, pmcsr,v2pmcsr,6,6,15,'0') 
endif 


return 
End 


UFFER PARITY ERROR*'/ 
TY ERROR*'/ 


TY ERROR*'/ 


Re'/ 
TORE PARITY ERROR*'/ 
ERROR*'/ 


VAX=11 FORTRAN 56 
DISKSVMSMASTER: CERF .SRCJPADRIVER.FOR; 1 
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DISKSVMSMASTER: CERF .SRCJPADRIVER.FOR; 1 


C1_PMCSR 1g-ep-19 r 90: thee VAX=11 FORTRAN 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 98 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 40 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 596 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 734 
ENTRY POINTS 
Address Type Name 
0-00000000 C1I_PMCSR 
VARIABLES 
Address Type Name Address Type Name 
pra sss a's 6 isl LN pedal teat AP=000000048 L*1 LUN 
ARRAYS 
Address Type Name Bytes Dimensions 
-00000000 CHAR VIPMCSR 145 (0:4) 
-00000091 CHAR V2PMCSR 300 (6:15) 
LABELS 
Address Label 
1-00000016 5° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
LINCHK OUTPUT 


Beseseee 


S 
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300-138 9851088 DISKSVMSMASTER: CERF. SRCIPADRIVER. FOR.” 

Subroutine CI_PSR (lun, psr,diagnostic_mode) 

byte lun 

integer*4 psr 04 

Logical*1 diagnostic_mode 04 

character*29 vipsr (0:7) be 

data vipsr(0) "RESPONSE QUEUE AVAILABLE*'/ 04! 

data vipsr(1) /*MESSAGE FREE QUEUE EMPTY*'/ 04 

data wiper te? /*PORT DISABLE COMPLETE®'/ 04 

data vipsr(3) /*PORT INITIALIZATION COMPLETE*'/ 04 

data vipsr(4) /"DATA STRUCTURE ERROR*'/ 04 

data vipsr(5) /*MEMORY SYSTEM ERROR*'/ 04! 

data viper ts} /"MAINTENANCE TIMER EXPIRATION®'/ 

Data vipsr(7) /*MISCELLANEOUS ERROR DETECTED®' $a 

character*18 v2psr (31:31) 

data v2psr (31) /*MAINTENANCE ERROR*'/ Re 
04' 

call Linchk (lun,1) ae 

write(Lun,5) psr- 04! 

format(' eB PSR", t24,28.8) 04' 


if (.mot. diagnostic_mode) then 


5 
call output (lun, psr,vipsr.0,0,7,'0") 2 
call output (lun,psr,v2psr,31,31,31,'0') Py 
endif 3 

5 
return ; 
End 


PAAAAN 


COOOOOCOOSOSOSCOOCOCOOCOOOOOOooooO 


PAMAMAAMAAAAD 


—_——_—_ _-_ -- ee 


— 
| PROGRAM SECTIONS 
; Name 
0 SCODE 
1 SPDATA 
2 SLOCAL 
Total Space Allocated 


“ENTRY POINTS 

Address Type Name 
0-00000000 CI_PSR 

VARIABLES 

| 

| 


Address Type Name 


AP-0000000C 


@L*1 DIAGNOSTIC_MODE 
AP-00000008@ 1*4 PSR 


ARRAYS 
Address Type Name 


Be aia CHAR V1PSR 
-O00000E8 CHAR V2PSR 


LABELS 
Address Label 
1-00000012 5° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
LINCHK OUTPUT 


soesensntiaegniiensiiseiehaianerinletiditniacchesanastmmecei 
1 
ibe 1984 00:11:24 VAX=11 FORTRAN V3.4-56 Page 25 
735571382 90310581 DI SKSVMSMASTER: CERF -SRCIPADRIVER. FOR? 1° | 


Bytes Attributes 
98 PIC CON REL LCL HR EXE RD NOWRT LONG 
36 PIC CON REL LCL HR NOEXE RD NOWRT LONG 
400 PIC CON REL LCL HR NOEXE RD  WkT LONG 


532 


AP-000000048 L*1 LUN 


Bytes Dimensions 


232 (0:7) 


| 
| 
18 (31:31) 


v 
> 


oo 
SSSSSSS9S999S9S9989S99S99ES99S99SES3EESP99PES299ES3ES9SP9S9S99S393S39 


Bes8555 


S 


883838383388838333833383333sss 
SUPUNSSISLOO RUNS ca onronsos 


WA 


SESEEEEEre 
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assesses 


re: 


Ssh tls , 


call Linchk (lun,1) 


write(lun,35) opr 
format(’ *,t8,"PPR',t24,28.8) 


D1 | 
16-Sep-1984 00:11:24 VAX=11 FORTRAN V3.4=-56 Page 26 
et 9051084 DISKSVMSMASTER: CERF SRCJPADRIVER.FOR 1° | 
| 
Subroutine CI_PPR (Lun, ppr.psr,diagnostic_mode) 
byte Lun | 
integer*4 ppr 
integer*4 psr 
integer*4 node_number 
integer*4 internal_buffer_size 
integer*4 compress 
lLogical*1 diagnostic_mode 
| 
| 


if (.not. diagnostic_mode) then 

if (LibSextzv(3,1,psr) .eq. 1) then 
node_number = Lib$Sextzv(0,8.,ppr) 
call Linchk (Llun,1) 


| 
write(lun,.40) node_number | 
format(' ',t40,""'CI’’ NODE #',i<compress4 (node_number)>,'.') 
| 
| 
| 


internal_buffer_size = Lib$Sextzv(16,12,ppr) 

call Linchk (lun,1) 

write(lun.45) internal_buffer_size 

format(' ',t40,"INTERNAL BUFFER SIZE, ', 

1 i<compress4 (internal_buffer_size)>,*. BYTES") 
call Linchk (lun,1) 

if (LibSextzv(31,1,.ppr) .eq. 0) then 
write(lun,50) *16' 

sprees: -t40,a," NODE MAXIMUM THIS ‘“‘CI**') 
else 


write(lun,50) '224' 
e f 


return 
End | 


v 
> 


polo le le lols leleojlelelelelelololo) 
PUPP 
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1 
C1_PPR 1§-Sep-1984 90:11:86 VAX-11 FORTRAN V3.4=-56 Page 27. 
-Sep-1984 14:10:51 DISKSVMSMASTER: CERF .SRCJPADRIVER.FOR; 1 
| PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 339 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 154 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 116 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 609 
ENTRY POINTS 
VARIABLES 
Address Type Name Address Type Name 
AP-00000010@ L*1 DIAGNOSTIC_MODE 2-00000004 I*4 INTERNAL_BUFFER_SIZE 
AP-000000048 L*1 LUN 2-00000000 I*4 NODE_NUMBER 
AP-000000088 I*4 PPR AP-0000000C@ I*4 PSR 
LABELS 
Address Label Address’ Label Address’ Label Address Label 
1-00000021 35° 1-00000031 40° 1-0000004D 45° 1-0000007A 50° 


| 
| 
| 
FUNCTIONS AND SUBROUTINES REFERENCED | 
Type Name Type Name Type Name 

| 


| 
| 
| | 
| 
Address Type Name 
0-00000000 CI_PPR 
| 
I*4 COMPRESS4 I*4 LIBSEXTZV LINCHK 


v 
Pr 
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Besos eososessceccuscccoos 
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Subroutine CI_CONTROL_STORE_MISMATCH (Lun,pmadr,pmdatr, — 
1 correct_confrol_store_valie,padriver_error_type_code,diagnostic_mode) 


byte lun 

integer*4 pmadr 

integer*4 pmdatr 

integert4 correct_control_store_value 
integer*4 padriver_error_type_code 
lLogical*1 diagnostic_mode 


if ( 

: iSeeontevt® 7 ptr tver errer typecode) -eq. 1 
an . 

1 LibSextzv(0,8,padriver_error_type_code) .eq. 0 

1) then 


call Linchk (lun,1) 


write(lun,55) pmadr 
format(’ *,t8,"PMADR',t24,28.8) 


if (.not. diagnostic_mode) then 
call Linchk (lun,4) 


write(lun,60) pmdatr correct control_store_value 
format(" ',t8,"PMDATR',t24,28.8,/, 

1 t40,"BAD DATA',/, 

1 t24,28.8,/, 

1 t40,°GOOD DATA") 
else 


call Linchk (lun,2) 


write(lun,65) pmdatr correct control_store_value 
format(' °,t8,PMDATR',t24,28.8,/, 

1 t24,28.8) 

endif 

endif 


return 
End 


7 
7 
7 
7 
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| -Sep-1984 14:10:51 DISKSVMSMASTER: LERF .SRCJPADRIVER.FOR;1 
| 


v 
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PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 17 PIC CON REL LCL SHR EXE RD NOWRT LONG 
| 1 $PDATA 19 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 $LOCAL 68 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 404 


ENTRY POINTS 
Address Type Name 
0-00000000 CI1_CONTROL_STORE_MISMATCH 


SSNS 


~_~™N 


AP-00000010a | CORRECT _CONTROL_STORE_VALUE AP=00000018@ L*1 DIAGNOSTIC_MODE 
AP-00000004a U3 LUN AP-00000014@ I1*4 PADRIVER_ERROR_TYPE_CODE 
AP-00000008a PMADR AP-0000000C@ I*4 PMDATR 


Sw 


LABELS 
Address Label Address Label Address’ Label 
1-00000018 55° 1-0000002A 60° 1-0000005E 65° 


: 
0 
6 
0 
0 
0 
0 
i) 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 


VARIABLES 

Address a Name Address Type Name 

1*4 LIBSEXTZV LINCHK 
| 

| 

& | 


H 1 
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DISKSVMSMASTER: CERF .SRCJPADRIVER.FOR; 
Subroutine PADRIVER_LOGMESSAGE (Lun,option) | 


— 

a 
nn 
eo— | 
00 

te 
—— 
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~~ 
-o 
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== 


4 include ‘src$:msghdr.for /nolist' 
si ; include ‘src$:emblmdef.for /nolist' 
01 
0134 byte Lun 
0135 
3 $ character*1 option 
0138 integers4 padriver_error_type_code 
0139 integers4 ucb$l_errcnt ~ - 
0140 integert4 remote_station aequvesess 
0141 integert4 remote gysten_td0 1 
O16 integers4 first_68 bytesS_of_message(17) 
014 integer4 error_subtype | 
0144 integert4 error_type 
0145 integer*4 path 
0146 integer*4 remote_node_number 
0147 integer*4 operation_code 
Bits integer*4 compress4 
3130 lLogical*1 response 
O26 integert*2 Local_station 1 § sa 
015 integer*2 lLocal_system_1d(3) 
0154 integer*2 remote_station_address (3) 
0155 integert2 remote_system_id( 
0156 integert2 remote_station egsrgssncs? hsc$w_msglen 
aed integert2 remote_system_1d5247, hsc$w_errlog_dg | 
0159 byte ppd$b_port 
0160 byte ppd$b_status 
0161 byte ppdsb_opc 
3166 byte ppd$b_ flags 
0164 equivalence (remote_station_address(3),remote_station_address3247) 
0165 equivalence (remote_station_address,remote_station_address031) 
0166 equivalence (remote_system_id,remote_system_id031) 
3424 equivalence (remote_system_id(3),remote_system_id3247) 
0169 equivalence C(emb$b_lm_msgtxt(1) ,.padriver_error_type_code) 
0170 equivalence Cemb$b_lm_msgtxt(5),ucb$l_errcnt) 
0171 equivalence C(emb$b_lm_msgtxt(9), local _station_address) 
Bits equivalence (emb$b_m=msgtxt (155, local_system_id) 
017 equivalence C(emb$b_lm_msgtxt(21),remote_station_address) 
0174 equivalence (emb$b_lm_msgtxt (27) ,remote_system_id) 
0175 equivalence Cemb$b_lm_msgtxt(33) ,ppd$b_port) 
0176 equivalence (emb$b_lm_msgtxt (34) ,ppd$b_ status) 
0177 equivalence Cemb$b_lm_msgtxt (35) ,ppd =9pC? 
0178 equivalence Cemb$b_lm_msgtxt ( $) -ppdsb.f ags) 
0179 equivalence Cemb$b_lm_msgtxt (37), first_68_bytes_of_message) 
0180 equivalence Cemb$b_lm_msgtxt (39) ,hsc$w_errlog_dg) 
0181 equivalence (emb$b_lm_msgtxt (49) ,hsc$t_nodename 
018¢ equivalence (emb$b~ Lm=msgtxt (57) .hsc$w_msglen) 
a F equivalence (emb$b_lm_msgtxt (59) ,hsc$t_message) 
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| 
0185 | 
188 character*(200) hsc$t_message 
is character*(8)  hsc$t_nodename 
188 character*(50) Message_ a 
0189 character*(*) Msg! msg omsg5,msg4,msg5,msg6,msg7,msg8,msg9,msg10, 
Big 1 msgi1,msgi2,msg1 | 
394 Integert4 str$position, start_index, end_loc 
019 Character*1 sub_str | 
0194 Data sub_str/13/ | 
0195 
p136 perenster ( 
019 msgl = ‘DATA CABLE(S) CHANGE OF STATE’, 
0198 § msg2 = ‘PATH #0. HAS GONE FROM GOOD TO BAD’, 
0199 msg5 = ‘PATH #1. HAS GONE FROM GOOD TO BAD‘, 
0200 4 msg&4 = ‘PATH #0. HAS GONE FROM BAD TO GOOD’, 
0201 5 msgS = ‘PATH #1. S GONE FROM BAD TO GOOD’ 
Osog 6 msg6 = ‘CABLES HAVE GONE FROM UNCROSSED TO CROSSED’, 
020 7 msg? = ‘CABLES HAVE GONE FROM CROSSED TO UNCROSSED* 
0204 8 msg8 = ‘PATH #0. LOOPBACK HAS GONE FROM GOOD TO BAD’, 
0205 9 msg? = ‘PATH #1. LOOPBACK HAS GONE FROM G TO BAD’, 
0206 2 msgiO = ‘PATH #0. LOOPBACK HAS BECOME GOOD, UNCROSSED', 
0207 2 msgii = ‘PATH #1. LOOPBACK HAS BECOME GOOD, UNCROSSED' 
0208 2 msgi2 = ‘PATH #0. HAS BECOME WORKING BUT CROSSED TO PATH #1.' 
9209 2 msgi3 = "PATH #1. HAS BECOME WORKING BUT CROSSED TO PATH #0."5 
ostt if (option .eq. ‘'S') call fretof (lun) 
asi? call header (lun) 
Osta call logger (lun,"ERLSLOGMESSAGE ENTRY") 
0217 error_subtype = LibSextzv(0,8,padriver_error_type_code) 
O515 error_type = Lib$extzv(8,7,padriver_error_type_code) 
0220 call Linchk (Lun,2) | 
Osse if (error_type .eq. 64) then 
0224 if (error mae rse eg. 0) then 
0225 write(Tun,10) emb$t_lm_name(1:emb$b_lm_namlng), 
O¢¢6 1 emb$w_lm_unit, UNRECOGNIZED ‘SCA’ PACKET’ 
0227 10 format(/* ','CI SUB-SYSTEM, _',a, | 
0228 1 i<compress4 (LibSextzv(0 16,emb$w_lm_unit))>,": = *, 
i594 1 a,:i<compress4 (error_subtype)>,:a) 
0231 else if (error_subtype .eq. 1) then 
Octe write(lun,10) emb$t_lm_name(1:enbd$b_Lm ngolng) 
02 1 emb$Sw_lm_unit, PORT-HAS CLOSED "VIRTUAC CIRCUIT" 
0538 else if (error_subtype .eq. 2) then 
0236 write(lun,10) emb$t_lm_name(1:emb$b_lm_naming), 
0 4 1 emb$w_lm_unit,*SOFTQARE SHUTTING DOQN PoRT' 
8 39 else if Corvor subtypes -eq. 3) then | 
0240 write(lun,10) emb$t_lm_name(1:emb$b_ lm vty d : 
0241 1 emb$w_lm_unit, SOFTQARE IS CLOSING "VIRTUAL CIRCUIT’ 
| 
| 
J 


Page 33 


K 
PADRIVER_LOGME SSAGE Ig-sen~1 386 90: 1:66 VAX-11 FORTRAN Rif 4-56 
-Sep-1984 14:10:51 DISKSVMSMASTER: LERF .SRCJPADRIVER.FOR;1 
0 tg 
024 else if (error_subtype .eq. 4) the 
0244 write(lun;1 10) ) emb$t Um nane (1: emb$b_L ming), 
6 $2 1 emb$w_\m_unit, "RECEIVED MCONNECT™ prinout PATH=BLOCK' 
0247 else if (error ~fubtype eq. 5) the 
Ose6 write(lun;1 b$t_ lm neme( 1s emb$b_ Lm peetos? 
0249 1 emb$w_\m vunit.* INAPPROPRIATE ACA’ CONTROL MESSAGE" 
0251 else if (error ~Subtype eq. 6) then 
0 26 write(lun,10) embSt im_na onett 19 mb$b_ ming) 
e7 1 emb$w_lm_unit, ‘NO PRTH=BLOCK DURING NITRIUAL circuit" CLOSE’ 
0255 else if (error =Subtype eq. 7) then 
0256 write(lun,10) emb$t_lm_name(1:emb$b_Lm_naming) 
OSe6 1 emb$w_lm_unit,'HSC ERROR LOGGING DATAGRAM RE Efvep.' 
0259 else if (error =$ubtype eq. 8) then 
0260 write(lun,10) embSt Lm_name(1:emb$b_lm_na —_ 
oser 1 emb$w_lm_unit, "REMOTE SYSTEM coneeaete: orra NOWN SYSTEM.' 
0565 endif 
0264 
0265 else if (error_type yea. then 
the: message_string = msgl 
0268 write(lun,10) emb$t_lm_name(1:emb$b_lm_namlng), 
8s68 1 emb$w_ lm unit smessage_String 
ost i call Linchk (Llun,2) 
027 Go to (310,315,320,325,330,335, 
0274 1 340,345,350, 355,360) error_subtype 
0276 if (error subtype .eq. 0) then 
0277 message string = msg2 
0278 go to 990 
0279 else 
0280 c ERROR. pare value did not match any known value so 
0281 i * 992 
pees end 
$584 310 tri 3 
message _string = ms 
0386 go t0°990 ° . 
0287 315 message _string = msg4 
0288 go t0°990 ° . | 
0289 
0290 320 message string = msg5 
0592 go to 990 
029 325 message string = msg6 
ie go 10990 . . | 
0296 330 message string = msg7 
0297 lhl ian 


Oo 
oO 


SSSS8s8ss 
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— 


a ree (error_type)>,a,i<compress4 (error_subtype)>,a) 
en 

call padriver_initialization (lun,padriver_error_type_code) 
if (option .eq. ‘B") return Ful 
call Linchk (lun,2) 


write(lun,30) "LOCAL STATION ADDRESS, ' 


] 
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0299 335 message string = msg8 PRI 
6 od go to 990 . : 
0 340 message string = msg9 
8 08 go to 990 : | | 
0305 345 message string = msgl0 
8 Be go £0990 : . 
0308 350 message string = msg11 
0309 g tos , 
6 i7 355 message string = msgi2 oa 
0312 ee a 
Bete 360 message_string = msg13 ( 
Bzi18 990 write(lun,12) message_string 
0317 12 format(/* *,t8,a) VA 
0318 992 continue 
0319 else 
Bese 
0321 write(lLun,25) emb$t_lm_name(1:emb$b_lm_naming), A 
0388 1 emb$w_im_unit,’*’'PADRIVER'’ ERROR TYPE #*,error_type, 
03 1 *., ERROR SUB-TYPE #',error_subtype,'.' 
0324 25 format(/' *,'CI SUB-SYSTE . LA 
0325 1 
0326 1 
0327 
0328 
0329 
0330 
0331 
Beat 
033 
0334 
0335 
0 


| 
| 
| 
| 
| 
i<compress4 (LibSextzv(0,16,emb$w_lm_unit))>,": -' 


3 

3 . 

336 1 (local station_address(i),i = 3,1,-1) 
0337 30 format(/* ',t8,a,3(24.4)," CHEX)'S 
ih 44 call Linchk (lun,2) 
0341 write(lun,30) ‘LOCAL SYSTEM ID, ‘,(local_system_id(i),i = 3,1,-1) 

O38 message = .false. 
b3c8 call Linchk (lun,2) 
0346 ' 
0347 if (remote_station_address031 - 0) 35,40,40 
Oeen 35 if (remote_station_address3247 - 0) 45,40,40 | 
4 51 40 write(lun,30) "REMOTE STATION ADDRESS, ', 
p 26 1 (remote_station_address(i),i = 3,1,-1) 

54 message = .true. 
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8 3} goto 55 
0358 45 write(lun,50) "REMOTE STATION ADDRESS UNAVAILABLE' 
8 2 50 format(/' ',t8,a) 
8 1 55 continue | 
8 a call Linchk (lun,2) | 
0365 if (remote_system_id031 - 0) 70,65,70 | 
Ose 65 if (remote_system_id3247 - 0) 70,75,70 
ha 70 write(lun,30) ‘REMOTE SYSTEM ID, ',(remote_system_id(i),i = 3,1,-1) 
Bae) goto 80 
0378 75 write(lun,50) "REMOTE SYSTEM ID UNAVAILABLE’ 
0375 80 continue 
0376 
0377 call Linchk (lun,1) 
0378 
0379 write(lun,85) 
Oeee 85 format(' °,:) 
ORs call ucb$b_ertcnt (lun, LibSextzv(16,8,padriver_error_type_code)) 
Bane call ucb$b_ertmax (lun, LibSextzv(24,8,padriver_error_type_code) >) 
Bee9 call ucb$w_errcnt (lun,ucb$l_errcnt) 
0388 if (.NOT. message) return 
0389 
4 call Linchk (lun,1) 
039 write(lun,90) ppd$b_ port 
O38 90 format(' eB, "PPDSB PORT" ,t30,22.2) 
444 remote_node_number = Lib$Sextzv(0,8,ppd$b_port) 
3424 call Linchk (lun,1) 
0398 
0399 write(lun,95) remote_node_number 
oct 95 formpe(® -t40, REMOTE NODE #',i<compress4 (remote_node_number)>, 
0 . 
$208 call Linchk (lun,1) | 
0404 
0405 write(lun.97) epdsb status 
ty} 97 format(' *,t8,"PPD$B_STATUS',t30,z2.2) | 
8 response = .false. 
09 
a | 
| 
| 


if (ppd$b_status .ne. 0) response = .true. 
if (LibSextzv(5,1,ppd$b_opc) .eq. 1) response = .true. 
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0413 | 

Brie if (response) then | 

B68 call status (lun,ppd$b_status) | 

041 endif | 

0418 | 

ed call Linchk (lun,1) 

0421 write(lun 399) P epd $b 8 

a § 99 format(' ',t8,PPD$B_OPC',t30,z22.2) 

> : operation_code = Lib$Sextzv(0,8,ppd$b_opc) 

0426 call Linchk (lun,1) 

0427 

0299 if (operation_code .eq. 1) then 

poet if (.not. response) then 

0432 bneed sg yg *SNDDG' 

0433 105 format(' ',t40,a) 

0434 else 

0435 

0436 write(lun,105) ‘DGSNT’ 

0437 endif 

0438 

ote call flags_pf (lun, ppd$b_ flags) 

Ree} else if (operation_code .eq. 2) then 

044 if (.not. response) then | 

0444 

0445 write(lun,105) "SNDMSG* | 

0446 else 

0447 | 

0448 write(lun,105) ‘MSGSNT' 

0449 endif 

0450 

ott call flags_pf (lun, ppd$b_ flags) 

0258 else if (operation_code .eq. 3) then 

0455 if (.not. response) then 

0436 

045 write(lun,105) ‘RETCNF’ 

0458 else | 

0459 

0460 write(lun,105) ‘CNFRET' 

0461 endif 

Reeg 

Beez call flags (lun, ppd$b_ flags) | 

0465 else if (operation_code .eq. 5) then | 

04 if (.not. response) then 


oo 4 
se 
Se we. 
oon 


write(lun,105) ‘REQID' 
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04 » else 

7 write(lun,105) ‘IDREQ’ 

if, endif 
98 call flags (Lun,ppd$b_ flags) 
oh 4 else if (operation_code .eq. 6) then 
oh 4 if (.not. response) then 
os) write(lun,105) ‘SNDRST' 

¢ else 
048 
0484 write(lun,105) "RSTSNT‘ 
0485 endif 
0486 
en t4 call flags_f (lun, ppd$b_ flags) 
ot 34 else if (operation_code .eq. 7) then 
pees if (.not. response) then 
049 write(lun,165) "SNDSTRT' 
0494 else 
0495 
0496 write(lun,105) ‘STRTSNT' 
0497 endif 
0498 
Bene call flags_ds (lun, ppd$b_ flags) 
F99 else if (operation_code .eq. 8) then 
0308 if (.not. response) then 
0505 write(lun,105) "‘REQDATO' 
0506 else 
0507 
0508 write(lun,105) "DATREQO' 
0509 endif 
0510 
Batt call flags_p (lun, ppd$b_ flags) 
0318 else if (operation_code .eq. 9) then 
Bat? if (.not. response) then 
0819 write(lun,105) "‘REQDAT1' 
0319 else 
520 write(lun,105) ‘DATREQ1' 
03 1 endif 
3 call flags_p (lun, ppd$b_ flags) 

525 else if (operation_code .eq. 10) then 

0596 ‘ > ‘ 
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if (.mot. response) then 
write(lun,105) ‘REQDAT2° 
else 


write(lun,105) "DATREQ2' 
endif 


call flags_p (lun, ppd$b_ flags) 

else if (operation_code .eq. 13) then 
if (.not. response) then 

~ $b ieee ter *SNDLB' 


write(lun,105) "LBSNT‘ 
endif 


call flags_pf (lun, ppd$b_ flags) 

else if (operation_code .eq. 14) then 
if (.mot. response) then 
write(iun,105) ‘REQMDAT’ 

else 

write(lun,105) "MDATREQ' 

endif 

call flags_p (lun,ppd$b_ flags) 

else if (operation_code .eq. 16) then 
if (.not. response) then 
write(lun,105) ‘SNDDAT‘ 

else 


write(lun,105) ‘DATSNT' 
endif 


call flags_p (lun, ppd$b_ flags) 

else if (operation_code .eq. 17) then 
if (.not. response) then 
write(lun,105) ‘RETDAT' 

else 


write(lun,105) "DATRET' 
endif 


call flags_p (lun, ppd$b_ flags) 


11 FORTRAN Ys 
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0584 OC 

te else if (operation_code .eq. 18) then 4 

364 if (.not. response) then Be 

9 write(lun,105) ‘SNDMDAT’ 00 
9390 else 00 
0398 write(lun,105) ‘MDATSNT‘ | 0 
0598 endif | 9¢ 
0339 call flags_p (Lun, ppd$b_ flags) | of 
$344 else if (operation_code .eq. 24) then | oe 
0399 if (.not. response) then oe 
0601 write(lun,105) ‘INVTC* 00 
060 else 00 
060 00 
0604 write(lun,105) "TCINV’ 0c 
0605 endif 
0606 
se 84 call flags (Lun, ppd$b_fiags) | 
+¢¢4 else if (operation_code .eq. 25) then 
bo) if (.not. response) then 
0618 write(lun,105) *SETCKT' 
0614 else 
0615 
0616 write(lun,105) ‘CKTSET’ 
0617 endif 
0618 
poly call flags (lun, ppd$b_ flags) 
0621 else if (operation_code .eq. 26) then 
8 § if (.not. response) then | 

5 write(lun,105) ‘RDCNT' | 

$ else 

8 write(lun,105) ‘CNTRD’ 

9 endif 

1 call flags (lun,ppd$b_ flags) 

: else if (operation_code .eq. 33) then 

5 write(lun,105) ‘DGREC' 


call flags_pf (lun, ppd$b_ flags) 


35 else if (operation_code .eq. 34) then 
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write(lun,105) ‘MSGREC' 

call flags_pf (lun,ppd$b_ flags) 

else if (operation_code .eq. 35) then 
write(lun,105) "CNFREC' 

call Linchk (lun,1) 

write(lun,111) ppd$b_flags 

else if (operation_code .eq. 49) then 
write(lun,105) "DATREC* 

call Linchk (lun,1) 

write(lun,111) ppd$b_flags 

else if (operation_code .eq. 45) then 
write(lun,105) ‘LBREC’ 

call Linchk (lun,1) 

write(lun,111) ppd$b_ flags 

path = LibSextzv(1,2,ppd$b_ flags) 
path = path - 1 

if (path .ge. 0) then 

call Linchk (lun,1) 

write(lLun.110) ‘LOOPBACK RECEIVED ON PATH #',path 
format(* °*,t40,a,i<compress4 (path)>,*.") 
end 

else if (operation_code .eq. 43) then 
write(lun,105) ‘IDREC' 

call Linchk (lun,1) 


write(lun,.111) podee.tis s 
format(* *,t8,'PPD$B_FLAGS*,t30,22.2) 


path = LibSextzv(1,2,ppd$b_ flags) 
path = path - 1 

if (path .GE. 0) then 

call Linchk (lun,1) 
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8698 write(lun,110) ‘RECEIVE PATH #',path 
00 else 
4 
7 ¢ call Linchk (lun,1) 
070 
7 writediun 112) *RECEIVE* | 
705 112 format(* 0,a,' PATH, INTERNAL LOOPBACK') 
p78 endif 
70 
708 path = LibSextzv(4,2,ppd$b_flags) 


3 


path = path - 1 

if (path .GE. 0) then 

call Linchk (lun,1) 
write(lun,110) ‘SEND PATH #' path 
else 

call Linchk (lun,1) 

er iye tian, rer *SEND' 
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else if (operation_code .eq. 36) then 
write(lun,105) "MCNFREC' 

call Linchk (lun,1) 

write(lun,111) ppd$b_flags 

else if (operation_code .eq. 51) then 
write(lun,105) "MDATREC* 

call Linchk (Llun,1) 

write(lun,111) ppd$b_flags 

else if (operation_code .eq. 11) then 
write(lun,105) "ID" | 
call Linchk (lun,1) 
write(lun,111) ppd$b_flags 
749 else if (operation_code .eq. 19) then 

751 write(lun,105) ‘RETMDAT’ 
75 call Linchk (lun,1) 
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755 write(lun,111) ppd$b_ flags 


7 

f $ else if (operation_code .eq. 4) then 

733 write(lun,105) "MCNF‘ 

re call Linchk (lun,1) 

76 write(lun,111) ppd$b_flags 

764 else 
0765 
Ore? if (.not. response) then 

768 write(lun,115) "COMMAND, ',operation_code,'. 
44 ; 115 format(' °,t40,"PORT "a, i<compress4~ tition. code)>,a) 
148 call Linchk (lun,1) 
077 write(lun,111) ppd$b_flags 
gre else 
O776 write(lun,115) "RESPONSE, ‘,operation_code,'. 
0778 call Linchk (Llun,1) 
hes ite(lun,111) ppd$b_ fl 

write(lun, ags 

0781 endif sath tit 
078 endif 
078 
0784 if (message) then 


0786 do 123,i = 1,17 
0788 if (first_68_bytes_of_message(i) .ne. 0) goto 124 


0790 123 cont inue 
0791 
ta goto 140 
tae) 124 If (Cerror_ subtype .eq. 7) .AND. (error_type .eq. 64)) then 
0 If C(hechy. gerrte d e - 5) AND. (hsc$w_msglen .gt. 2)) then 
O79 call «(tans ~ Se ' ’ 
BS a he a blank Line 
799 eritetion: 23) emusee ERROR LOG ¢ DATAGRAM’ 
st} write(lun,125) hsc$t_nodename(1 
pale start_index = 1 
080 end_ldc = hsc$w_msglen - 2 
0805 1111 j = STRSPOSITION (hsc$t_message, sub_str, start_index) 
OBO? c If the search find the sub string past the end of the message 
c then the search failed. 


-o 


" ij ,-tt- (hsc$w_msglen = 2) ) then 


Goo 
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1 00 
p i§ endif 00 
1 if (j .eq. 0) then 
12 1 s"hechu msglen = 1 
0817 end if iid 
35 7126 Feces ateT ap" poets nescngeteters. tadenst}o1)? 09 
08 é if (end_loc .ne. 0) then 00 
88 start_index = j + 2 8° 
4 goto 1111 
0825 end if 00 
0826 else 00 
0827 call Linchk (tun, 3) | 00 
0828 write (lun,125) ‘UNRECOGNIZED "'HSC'’ ERROR LOG DATAGRAM’ 00 
0829 endif 00 
0830 88 
0831 else 
083 | 00 
083 call Linchk (lun,3) 00 
0834 write(lun,125) '“CI"* MESSAGE' | 00 
ett 125 format(/" ',t8,a) s 
0837 write(lun,85) 00 
0838 | 00 
0839 do 135,41 = 1,17 | 00 
0840 | 00 
0841 call Linchk (lun,1) oS 
084 ite(lun,130) first_68 bytes of (i) 00 
0844 130 HS at es SE | hea 90 
0846 «135 continue | 00 
0847 endif 00 
0848 00 
0849 140 continue $6 
0850 endif | 90 
return 00 
End | Be 
| : 
| 
| 
| o¢ 
| ; 


PADRIVER_LOGME SSAGE 


PROGRAM SECTIONS 
Name 


Total Space Allocated 


ENTRY POINTS 
Address Type Name 


VARIABLES 
Address Type Name 
3-000000 
-00000011 L*1 EMBSB_LM_TYPE 
3-d090000¢ CHAR EABST 
EMBSW_L 


-00000034 I*4 ERROR-SUBTYPE 
=00000060 CHAR HSCS$T MESSAGE 


C 
-0000003C I*4 PAT 
0000004 PPDSB_OPC 
00000047 L*1 PPDSB~STAT 
-90000000 L+1_ RESPONSE 
00000033 CHAR SUB_STR 


ARRAYS 


Address Type Name 
-00000000 itl EMB 
-00000026 L*1 cress LA _s6 

I*4 EMBSO -HD. TIM 

A I*4 FIRST~68°BY 
-0000002E I*2 LOCAL_STATION 
ms'4'e4 I*2 LOCAL _SYSTE 
A I*2 REMOTE_STAT 
-00000040 I*2 REMOTE_SYST 


0-00000000 PADRIVER_LOGME SSAGE 


Address Type 
10 L*l EMBSB_LA_ CLASS 


~LM_NAME 
iss EMBSW_HD =ERRSEQ 

M"UNIT 
-0000004C I*2 my: ERRLOG_DG 


L 
2-00000001 CHAR RESSAGE_STRING 
OPTION 


US 
-0000003A I*4 REMO MOTE. STATION _ADDRESSO31 
“00000040 I*4 REMOTE SYSTEM_TD031 


zo 
m— 
= 
_ 


TES a es 


a 
1ON_ADDRESS 
EM_ID 


EMBSB_LM_NAMLNG 


EMBSL_H 


“SID 
EMBSW_HD_ENTRY 
EMBSW-LM_MSGTYP 

N LOC 


ERROR 
HSC$T 
HSC$W 


MESSAGE 
OPERATION 


RD 


YPE 
~NODENAME 
“MSGLEN 


VAX=11 FORTRAN 
DISKSVMSMASTER: 


EXE RD NOWRT LONG 
NOEXE RD NOWRT LONG 
EXE WRT LONG 
EXE WRT LONG 


CODE 
PADRIVER_ERROR_TYPE_CODE 
PPD$B_FLAGS 


REMOTE 
REMOTE SySTE 
START_INDEX 


UCBSL-ERRCNT 


Dimensions 


at 
“BATION, A 


TADDRESS3247 


4] 
=) 


.4= 
RF-SRCJPADRIVER. FOR: 


SSSSSSSSSSSSSSSE 


v 


J 2 
PADRIVER_LOGME SSAGE Tgrgenn 1386 9 311: a) VAX=11 FORTRAN V3.4-56 Page 
-Sep-1984 2:10:51 DISKSVMSMASTER: CERF .SRCJPADRIVER.FOR;1 
LABELS 
Address Label Address Label Address Label Address Label Address Label Address Label 
1-00000309 10° 1-00000407 12° 1-00 ey g2° 1-00000442 30" ae 5 a0 4445 5443 40 
0-00000605 4 1=0000045A ; ? o- 6 $ $2 0-00000647 70 000067A 75 
o-~Se peor ee 80 1-0000046 ‘ - 467 90' 1-0000047€ ls 1-0000049C 97° 1-00000485 99° 
Cooly Soe 132° e's 4 139. 1- 3 8 he 111° 1-000004FA 11g" 1-0000051B 115° oh 123 
Se 124 1- 33 125° 1- 55F 130° ee 13 0-0000171C 140 0-000003 ; 10 
HE 904494 i) 0 9444 ; 5 9095 ; 0 0-00000424 335 444 9D 40 
~Bon9065 45 -00000448 0 0-00000458 5 -00000463 360 0-0000046C 990 0000048E 992 
§-0900%88 1111 1-00000530 2126' 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 ponenesss FLAGS FLAGS_DS 
LAGS _F FLAGS _P FLAGS PF 
FRC TOF HEADER I*4 LIBSERTZV 
Liam LOGGER PADRIVER ANE TEALSEAT SON 
STA I*4 STRSPOSITION UCBSB_ERTCN 


Iv! 
UCese “ERTMAX UCBSW_ERRCNT 


0001 
0096 
0008 


ssssssesassessess 
WN "OO ONOUS WO 


888383833338 
SUSUR CNN STS 


K 2 
Ssep-19be 44:10:81 


Subroutine FLAGS (Lun,ppd$b_ flags) 


byte Lun 
byte pod$b_ flags 
integers4 path select 


call Linchk (lun,1) 


write(lun,5) ppd$b_ flags 
format(' 8p ppp SB FLAGS’ ,t30,22.2) 


if (LibSextzv(0,1,ppd$b_flags) .eq. 1) then 
call Linchk (lun,1) 

write(lun,10) "RESPONSE QUEUE BIT’ 

format(’ °,t40,a) 

endif 

path_select = LibSextzv(1,2,ppd$b_filags) 
call Linchk (lun,1) 


if (path select .eq. 1) then 
write(lun,10) "SELECT PATH #0.° 


else if (path_select .eq. 2) then 
write(lun,10) ‘SELECT PATH #1.° 


endif 


return 
End 


— | 


1 FORTRAN YB 
VMSMASTER: LER CIPADRIVER.FOR; 1 


: | 
FLAGS 1§-se5-19 4 Ort hig VAX=-11 FORTRAN V3.4-56 Page 47. 
-Sep-1984 14:10:51 DISKSVMSMASTER: CERF .SRCJPADRIVER.FOR; 1 


PROGRAM SECTIONS 
Name Bytes Attributes 


| 
| 
| 
} 


0 SCODE 230 PIC CON REL LCL SHR EXE RD NOWRT LONG | 
1 SPDATA 1 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 2 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 393 
ENTRY POINTS 
Address Type Name 
0-00000000 FLAGS 
VARIABLES 
Address Type Name Address Type Name Address Type Name 
AP-00000004@ L*1 LUN 2-00000000 I1*4 PATH_SELECT AP-00000008@ L*1 PPDS$B_FLAGS 


LABELS | 
Address Label Address’ Label 
1-0000003C 5° 1-00000054 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
I*4 LIBSEXTZV LINCHK 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS3S3sss 


M 2 
16-Sep-1984 00:11:24 VAX=11 FORTRAN V3.4-56 Pa 48 
Set 9OF10s81 DISKSVMSMASTER: LERF .SRCJPADRIVER.FORS1 >” 


ENTRY POINTS 
Address Type Name 


1 00 
Oe 00 
Subroutine FLAGS_PF (Lun,ppd$b_ flags) 4 
3 Byte soasb_ fl 6 

900 yte ppd$b_ flags 6 
0008 02 
9009 call flags (Lun, ppd$b_flags) 

got) call Linchk (lun,1) 0 
Go1§ if (LibSextzv(8,1,ppd$b_flags) .eq. 1) then o 
0015 write(lun,5) ‘'NIBBLE'’ PACKED" Oe 
0016 «= 5 format(' ',t40,a) 8 
ae ioe 
0019 write(lun,5) "LONGWORD'' PACKED 09 
0020 endif 02 
0021 02 
002¢ return 02 
nite end 09 
n 02 
02: 
02: 
02: 
PROGRAM SECTIONS oS 
Name Bytes Attributes 8s 
0 S$CODE 127 PIC CON REL LCL SHR EXE RD NOWRT LONG 8s 
1 S$PDATA 47 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 02 
2 SLOCAL 56 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 0s 

Total Space Allocated 230 
0 

0 

0 

0 

0 

0-00000000 FLAGS_PF 8 

0 

VARIABLES 0 

Address Type Name Address Type Name 
AP-00000004a L*1_ LUN AP-00000008@ L*1 PPDSB_FLAGS 


: 
| 


FLAGS _PF 
LABELS 
Address Label 
1-00000028 5° 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 
FLAGS 


Type Name 
I*4 LIBSEXTZV 


Type Name 
LINCHK 


N 2 
16-Sep-1984 00:11:24 VAX=11 FORTRAN 
97300-1382 90:10:84 DISKSVMSMASTER 


Yeon 26 Page 49 
: CERF .SRCIPADRIVER.FOR; 


v 
o 


COOOCCOSCCOCOOCOCSO OOOO OOOCoOooOO 


YVNNNVNMVNMNNN 


Ww 


SOOSOSCSOOCOOSOSOOOOOOOooeoO 
AWA.AWWN ANNAN AANA 


— 


3 
16-Sep-1984 00:11:24 VAX=11 FORTRAN V3.4-56 Pa 50 
b-Sen-1984 90108 DISKSVMSMASTER:LERF,SRCIPADRIVER.FOR 4 


Subroutine FLAGS_P (Lun, ppd$b_ flags) 


byte Lun 
byte ppd$b_ flags 


integert4 packet_multiple 
integer*4 packet_base_size 
integert4 packet_size 
integers4 compress4 


eeeeeeses 


cali flags (lun, ppd$b_ flags) 


packet_multiple = Lib$Sextzv (5,3,ppd$b_ flags) 
packet_base_size = 512 


if (LibSextzv(8,1,ppd$b_flags) .eq. 1) packet_base_size = 576 
packet_size = packet_base_size * (packet_multiple + 1) 

call Linchk (Llun,2) 

write(lun,5) "PACKET MULTIPLE ‘,packet multiple, 

1 * = PACKET SIZE ‘,packet_size,’. BYTES’ 


5 format(® °,t40,a,i<compress4 (packet_multiple)>,/, 
1 t40,a,i<compress4 (packet_size)>,a 


S888s8S8S83ssss 


WAI AININIPININININININID 2 2 2 OO OS oe 
FUN “OC OCONAUESWN“OVONOUSWNO 


return 
End 


S88S83388ss 


w 


2 


v 
o 


oOCoOoCoOooO COOOCOCOCOCOCOCSOSOCSOCOCOCOCO COCO OOCOCOCOCOOCOOCOOCOOOOOoOOO 


FLAGS_P 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 19 PIC COM REL LCL pe EXE RD NOWRT LONG 
1 SPDATA 8 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 1 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 388 
ENTRY POINTS 
Address Type Name 
0-00000000 FLAGS_P 
VARIABLES 
Address Type Name Address Type Name 
AP-00000004@ L*1 LUN am sti 4 te I*4 PACKET_BASE_SIZE 
2-00000000 I*4 PACKET PA TILE -00000008 I*4 PACKET SIZE~ 


AP-00000008@ L*1 PPD$B_FLAG 


LABELS 
Address Label 
1-0000003A 5° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name 
1*4 COMPRESS FLAGS I*4 LIBSEXTZV LINCHK 


3 
i§- Sep-1984 00:1 §:8¢ VAX=11 FORTRAN -56 A 
-Sep-1984 1 DISKSVMSMASTER: CERF .SRCJPADRIVER.FOR; 1 


04 


0-4 -h 6-44-44 4-0-0 4 4-4 0-0 4-6 9 0 4 4-0 04 


: 


byte 


eeeeseses 


PROGRAM SECTIONS 


0010 

0011 

$018 call Linchk (lun,1) 
0014 

0015 write(Llun, 5) AF ONCE RESET’ 
0016 5 format(' 140.8 
0017 endif 

0018 

0019 return 

0020 

0021 End 


1 53 -1984 
¢- gep-19 4 


Subroutine FLAGS_F (Llun,ppd$b_ flags) 
lun 
byte ppd$b_ flags 


call flags (lun, ppd$b_ flags) 
if (LibSextzv(8,1,ppd$b_flags) .eq. 1) then 


Name Bytes Attributes 
0 SCODE 91 PIC CON REL LCL SHR EXE 
1 SPDATA 26 PIC CON REL LCL SHR NOEXE 


2 SLOCAL 
Total Space Allocated 


ENTRY POINTS 
Address Type Name 


48 PIC CON REL LCL NOSHR NGEXE 


0-00000000 FLAGS_F 
VARIABLES 
Address Type Name Address Type Name 
AP-00000004@ L*1 LUN AP-000000088 L*1 PPDSB_FLAGS 
LABELS 
Address Label 
1-00000013 5° 


ee ee a eee 


5 | 


0:11:26 VAX=11 FORTRAN V3.4-5 Page 52 
4:10:51 DISKSVMSMASTER: ERF. SRC IPADRIVER. FOR;1 


RD NOWRT LONG 
RD NOWRT LONG 
RD WRT LONG 


vw 
rand 


RRLLLRLRLLLLLL 


FLAGS_F eh war ie 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
FLAGS 1*4 LIBSEXTZV LINCHK 


V9hE P2i13:8} — DTScSUmsmasten: Lear Sac aPADRIVER. FOR, “4 


ie ns te er | 
Bee 13bc 12:10:51 DISKSVMSRASTER: FEAF. SRCIPADRIVER.FORTIS™ 


| 
| 
| 


Wn 


Subroutine FLAGS_DS (Lun, ppd$b_ flags) 


5 OC 
byte lun OC 
byte ppd$b_ flags be 

0 
10 call flags (lun,ppd$b_ flags) | 0 
1g if (LibSextzv(8,1,ppd$b_flags) .eq. 1) then 8s 
13 call Linchk (lun,1) | Bs 
1 rite(lun,5) "DEFAULT STARTING ADDRESS‘ 02 
8019 5 format’ t t40,a) | 02 
0018 endif 02 
0019 0 
0020 return 0 
B05) 0c 
0022 End | Bs 
| 03 
| 0 
PROGRAM SECTIONS | 03 
Name Bytes Attributes | Bs 
0 SCODE 91 PIC CON REL LCL SHR EXE RD NOWRT LONG 02 
1 SPDATA 39 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 02 
2 SLOCAL 48 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 03 
Total Space Allocated 178 | 0 
| 03 
ENTRY POINTS 63 
Address Type Name 83 
0-00000000 FLAGS_DS 
VARIABLES 
Address Type Name Address Type Name 


AP-000000048 L*1 LUN AP-00000008@ L*1 PPDSB_FLAGS 


| 

seneae. : if-sen-1984 Por 1b:8? DT Rcbumsmas ten: Pear. SecIPADRIVER. FORTS?” | i‘ 

LABELS | 

Address Label | 
1-00000020 5° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
FLAGS I1*4 LIBSEXTZV LINCHK 


| 
| 


H 3 
16-Sep-1984 00:11:24  VAK-11 FORTRAN V3.4-56 Page 56 PC 
g- 9007 138 9 108] DISKSVMSMASTER: ERF . SRCJPADRIVER.FOR:1~ 
0001 | 
: Subroutine STATUS (lun, ppd$b_status) 
5 
byte lun 
byte ppd’ +_status 
integer*4 type 
integersé oth] 
integer*4 pth_0 
integer*4 sub_type 
integere4 compressc 
charactersS vistatus(0:0) 
data vistatus(0) /*FAILe'/ 


character*20 potn weneest aso? 
data path_status(0) Ae Ey NOT USED*'/ 


Sa an ae anamp aaeameaeartd aba 
=O OONAOYVE WN —OOONOU EWN OO 


00 

00 

00 

00 

$0 data path_status(1) /**'NAK"’ 

00 data path_status(2) /'NO RESPONSE®'/ 

oo data path_status(3) /*‘ARBITRATION TIMEOUT®'/ 

00 character*25 subtype(0:3) 

00 data subtype(0) /*PACKET SIZE VIOLATION®'/ 

00 data subtype(1) /*UNRECOGNIZED PACKET®#'/ 

00 data suptyeete: /*INVALID DESTINATION PORT#'/ | 
oS data subtype(3) /"UNRECOGNIZED COMMAND® ‘/ 
00 character*27 types(0:6) 

00 data types (0) /*NORMAL*'/ 

st t4 data types(1) /*VIRTUAL CIRCUIT CLOSED*'/ 

003 data types (2) /* INVALID BUFFER NAME®'/ 

0034 data types (3) /*BUFFER LENGTH VIOLATION®'/ 

0035 data types (4) ACCESS CONTROL VIOLATION®'/ 

0036 data types (5) /*NO PATH®' 

0038 data types (6) /*BUFFER MEMORY SYSTEM ERROR®'/ 


39 
0 


type = LibSextzv(5,3,ppd$b_status) 
pth_1 = LibSextzv($.¢.ppd$B_status) 

pth_O = LibSextzv(1,2,ppd$b_status) 

sub_type = LibSextzv(1,4,ppd$b_status) 

call output (lun,ppd$b_status,vistatus,0,0,0,'0') 

if (type .eq. 7) then | 
call Linchk (lun,1) | 
write(lun,10) subtype (sub_ type? 

format(' *,t40,a<compressc 

else 

call Linchk (lun,2) 


write(lun,15) ‘O*,path_status(pth_0) 


SeeEREREre 


subtype(sub_type))>) 


NO UE WO OONOUE WN 


PANAMA 


SSS88S888 


1feSep-1984 00:13:24 WAKEH FORTRAN V5.4056 Page 57 


format(" *,t40,"PATH @' 
1 a<compressc (path_ seokkeele. ‘69> 


pth_0 = pth_1 
write(lun,15) ‘1° .path_status(pth_1) 
call Linchk (Llun,1) 

yritetiyun,20) types (type? 


format(' *,t40,a<compressc (types(type))>) 
endif 


return 
End 


496 PIC CON ae EXE RD NOWRT LONG 
7 EXE RD NOWRT LONG 
5 SLOCAL 616 PIC CON RE EXE RD WRT LONG 
Total Space Allocated 1181 


ENTRY POINTS 


| 

Bytes Attributes 

| 

| 

| 

Address Type Name 
| 


0-00000000 STATUS 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
AP @t*1 LUN AP-000000 +s} mp8. STATUS 2-00000180 I*4 PTH_O 2-0000017C I*4 PTH_1 
500008 ‘i 184 1*4 SUB_TYPE B-p00001 8 i= " 2 
ARRAYS 
Address Type Name Bytes Dimensions 


5 _—_ PATH STATUS ( 3} 
5 CHAR SUBTYPE 1 (0:3) 
9 CHAR TYPES 1 ( :8) 

CHAR VISTATUS 5 (0:0) 


STATUS 1 s3 1984 00:11: 
i Sep-19 984 1 Me10:8 


LABELS 
Address Label Address Label Address Label 
1-00000018 10° 1-00000027 15° 1-00000041 20' 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name 
1*4 COMPRESSC I*4 LIBSEXTZV LINCHK OUTPUT 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:PADRIVER/OBJ=0BJ$:PADRIVER MSRCS$:PADRIVER 
/ CHE CK= (NOBOUNDS , OVERFLOW, NOUNDERF LOW) 
/DEBUG= (NOSYMBOLS$, TRACEBACK) 


/STANDARD= (NOS YNTAX NOSOURCE ty 
/SHOW=(NOPREPROCESSOR,NOINCLODE ,MA 


COMPILATION STATISTICS 


Run Time: 30.65 seconds 
Elapsed Time: 66.15 seconds 
Page Faults: 424 


Dynamic Memory: 330 pages 


VAX=11 FORTRAN Birt 
DISKSVMSMASTER: CERF. “SRCIPADRIVER. FOR;1 


/§77 /NOG_FLOATING 714 /OPTIAIZE /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


Pege 58 
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